Sub muestra_aplicacion2()
    Dim miAplicacion As Object
    Set miAplicacion = CreateObject("Excel.Application")
    Debug.Print ("Name (" & miAplicacion.Name & ")")
    Debug.Print ("Impresora (" & miAplicacion.ActivePrinter & ")")
    Set miAplicacion = Nothing
End Sub
